10 REM       *** DFT1.0 - GENERATE SQUARE WAVE  ***
12 INPUT "NUMBER OF TERMS";N
20 PI = 3.14159265358#
30 FOR I = 0 TO 2*PI STEP PI/8
32 Y=.5
40 FOR J=1 TO N: Y=Y-(-1)^J*COS(J*I)/(4*J*J-1): NEXT
50 PRINT Y
60 NEXT I
70 END
